home *** CD-ROM | disk | FTP | other *** search
/ William Shakespeare - The Complete Works / William Shakespeare - The Complete Works on CD-ROM.iso / classic / start.frm < prev    next >
Text File  |  1994-09-08  |  1KB  |  49 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "Form2"
  5.    ClientHeight    =   4500
  6.    ClientLeft      =   5745
  7.    ClientTop       =   2475
  8.    ClientWidth     =   7785
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Height          =   4905
  12.    Left            =   5685
  13.    LinkTopic       =   "Form2"
  14.    Picture         =   START.FRX:0000
  15.    ScaleHeight     =   300
  16.    ScaleMode       =   0  'User
  17.    ScaleWidth      =   676.497
  18.    Top             =   2130
  19.    Width           =   7905
  20.    Begin Timer Timer1 
  21.       Enabled         =   0   'False
  22.       Interval        =   2000
  23.       Left            =   120
  24.       Top             =   60
  25.    End
  26. End
  27.  
  28. Sub Form_Load ()
  29. resolution = screen.Width / screen.TwipsPerPixelX
  30.  
  31. top = 0
  32. left = (resolution - Width) / 2
  33. Width = screen.TwipsPerPixelX * 640
  34. Height = screen.TwipsPerPixelY * 480
  35. left = (screen.Width - Width) / 2 + 1
  36. top = (screen.Height - Height) / 2 + 1
  37.  
  38. 'do_command ("START")
  39.     
  40.  
  41.  
  42. End Sub
  43.  
  44. Sub Timer1_Timer ()
  45. main_start
  46. timer1.Enabled = False
  47. End Sub
  48.  
  49.